home *** CD-ROM | disk | FTP | other *** search
/ Visual Intercept / Visual Intercept.iso / sheriff.z / isgnrlfn.bas < prev    next >
BASIC Source File  |  1996-08-26  |  6KB  |  202 lines
  1. Attribute VB_Name = "IIGeneral"
  2. '----------------------------------------------------------------------------
  3. '   isgnrlfn.bas is a member of the Visual Intercept Visual Basic API.
  4. '   Copyright (c) 1996 Elsinore Technologies, Inc. All rights reserved.
  5. '
  6. '   This software is protected by copyright law. Unauthorized reproduction
  7. '   or distribution of this program, or any portion of it, may result in
  8. '   severe civil or criminal penalties. If you have any questions about
  9. '   your redistribution rights, please contact Elsinore Technologies, Inc.
  10. '
  11. '   Creator: Albert J. Lin (AJL)
  12. '   History: Created 09/17/95
  13. '----------------------------------------------------------------------------
  14.  
  15.  
  16. '----------------------------------------------------------------------------
  17. ' Visual Intercept Constants:
  18. '----------------------------------------------------------------------------
  19. Public Const lnIIAccountName = 32
  20. Public Const lnIIAccountCode = 32
  21. Public Const lnIIProjectName = 256
  22. Public Const lnIIVersionName = 32
  23. Public Const lnIIIncidentName = 32
  24. Public Const lnIIUserID = 128
  25. Public Const lnIIPassword = 32
  26. Public Const lnIIDescription = 32767
  27. Public Const lnIISubject = 128
  28. Public Const lnIIDate = 64
  29. Public Const lnIIParameter = 32
  30. Public Const lnIIName = 32
  31. Public Const lnIICity = 32
  32. Public Const lnIIState = 32
  33. Public Const lnIIAddress = 32
  34. Public Const lnIIZipCode = 32
  35. Public Const lnIIDepartement = 32
  36. Public Const lnIICompany = 32
  37. Public Const lnIITitle = 32
  38. Public Const lnIIRegion = 32
  39. Public Const lnIICountry = 32
  40. Public Const lnIIPhone = 32
  41. Public Const lnIIEMail = 128
  42. Public Const lnIIServerName = 128
  43.  
  44. '----------------------------------------------------------------------------
  45. ' Visual Intercept Warning Codes:
  46. '----------------------------------------------------------------------------
  47. Public Const IE_WRN_NO_DATA = 1
  48. Public Const IS_WRN_CANCEL = 4000
  49.  
  50. '----------------------------------------------------------------------------
  51. ' Visual Intercept Error Codes:
  52. '----------------------------------------------------------------------------
  53. Public Const IE_WRN_CANCEL = 2
  54. Public Const IE_ERR_NOACCESS = -1
  55. Public Const IE_ERR_NOPERMISSION = -2
  56. Public Const IE_ERR_BADMEM = -3
  57. Public Const IE_ERR_INVALID_USERID = -4
  58. Public Const IE_ERR_INVALID_PASSWORD = -5
  59. Public Const IE_ERR_INVALID_SERVER = -6
  60. Public Const IE_ERR_INVALID_DATABASE = -7
  61. Public Const IE_UNKNOWN_PARAMETER_TYPE = -8
  62. Public Const IE_ERR_DATA_TRUNCATED = -9
  63. Public Const IE_ERR_DATA_CHANGED = -10
  64. Public Const IE_ERR_INVALID_ADMIN = -11
  65. Public Const IS_ERR_ODBC_DRIVER = -4000
  66. Public Const IS_ERR_INVALID_SYSUSERID = -4001
  67. Public Const IS_ERR_INVALID_SYSPASSWORD = -4002
  68. Public Const IS_ERR_NOEXIST_SERVER = -4003
  69.  
  70. '
  71. '/**************************************************************************
  72. ' *  Connection API Functions in ISAPI.
  73. '*************************************************************************
  74.  
  75. Public Declare Function IISetAutoNotify Lib "isapi.dll" (ByVal Flag1 As Long) As Long
  76. Public Declare Function IIPing Lib "isapi.dll" () As Long
  77. Public Declare Function IIFreeResults Lib "isapi.dll" () As Long
  78.  
  79. Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  80.  
  81. Public Function VBIITrim(text As String) As String
  82.     Dim finish As String
  83.     Dim ch As String
  84.     Dim i, ln As Integer
  85.  
  86.     ' we have a serious problem with trimming text.
  87.     ' The strings that are sent to the Intercept Engine
  88.     ' have been padded to accept the best possible
  89.     ' return data and we are passing with null bytes
  90.     ' which Intercept likes and knows to ignore. The
  91.     ' Trim methods in VB can only trim spaces.
  92.     
  93.     ' You need to use this function only if your are
  94.     ' trying to trim strings that are directly returned
  95.     ' from the Intercept API.
  96.     
  97.     ln = Len(text)
  98.     For i = 1 To ln
  99.         ch = Mid(text, i, 1)
  100.         If StrComp(ch, vbNullChar, 1) <> 0 Then
  101.             finish = finish + ch
  102.         Else
  103.             Exit For
  104.         End If
  105.     Next i
  106.  
  107.     VBIITrim = finish
  108.             
  109. End Function
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116. Public Function VBIIError(ByRef rError As Long)
  117.     Dim msg As String
  118.     
  119.     If rError < 0 Then  ' Visual Intercept Error
  120.         Select Case rError
  121.             Case IE_ERR_NOACCESS
  122.                 msg = "IE_ERR_NOACCESS"
  123.             Case IE_ERR_NOPERMISSION
  124.                 msg = "IE_ERR_NOPERMISSION"
  125.             Case IE_ERR_BADMEM
  126.                 msg = "IE_ERR_BADMEM"
  127.             Case IE_ERR_INVALID_USERID
  128.                 msg = "IE_ERR_INVALID_USERID"
  129.             Case IE_ERR_INVALID_PASSWORD
  130.                 msg = "IE_ERR_INVALID_PASSWORD"
  131.             Case IE_ERR_INVALID_SERVER
  132.                 msg = "IE_ERR_INVALID_SERVER"
  133.             Case IE_ERR_INVALID_DATABASE
  134.                 msg = "IE_ERR_INVALID_DATABASE"
  135.             Case IE_UNKNOWN_PARAMETER_TYPE
  136.                 msg = "IE_UNKNOWN_PARAMETER_TYPE"
  137.             Case IE_ERR_DATA_TRUNCATED
  138.                 msg = "IE_ERR_DATA_TRUNCATED"
  139.             Case IE_ERR_DATA_CHANGED
  140.                 msg = "IE_ERR_DATA_CHANGED"
  141.             Case IE_ERR_INVALID_ADMIN
  142.                 msg = "IE_ERR_INVALID_ADMIN"
  143.             Case IS_ERR_ODBC_DRIVER
  144.                 msg = "IS_ERR_ODBC_DRIVER"
  145.             Case IS_ERR_INVALID_SYSUSERID
  146.                 msg = "IS_ERR_INVALID_SYSUSERID"
  147.             Case IS_ERR_INVALID_SYSPASSWORD
  148.                 msg = "IS_ERR_INVALID_SYSPASSWORD"
  149.             Case IS_ERR_NOEXIST_SERVER
  150.                 msg = "IS_ERR_NOEXIST_SERVER"
  151.             Case Else
  152.                 msg = "Unknown Visual Intercept Error [" + Str$(rError) + "]"
  153.         End Select
  154.         
  155.         If MsgBox(msg, vbOKCancel) = vbOK Then
  156.             rError = 0
  157.         End If
  158.     End If
  159.     
  160. End Function
  161.  
  162.  
  163.  
  164. Public Function VBIISetAutoNotify(ByRef rNotify As Long) As Long
  165.     Dim err As Long
  166.  
  167.     err = IISetAutoNotify(rNotify)
  168.     
  169.     VBIISetAutoNotify = err
  170.     
  171. End Function
  172.  
  173. Public Function VBIIPing() As Long
  174.     Dim err As Long
  175.     
  176.     err = IIPing()
  177.  
  178.     VBIIPing = err
  179.     
  180. End Function
  181.  
  182.  
  183. Public Function VBIIVersion() As Long
  184.     Dim version As Long
  185.     
  186.     version = IIVersion()
  187.     
  188.     VBIIVersion = version
  189.     
  190. End Function
  191.  
  192. Public Function VBIIFreeResults() As Long
  193.     Dim err As Long
  194.     
  195.     err = IIFreeResults()
  196.     
  197.     VBIIFreeResults = err
  198.     
  199. End Function
  200.  
  201.  
  202.